home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
scud3
/
scud.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
5KB
|
183 lines
VERSION 2.00
Begin Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Iraqi Missile"
ClientHeight = 4005
ClientLeft = 1365
ClientTop = 1770
ClientWidth = 5550
Height = 4410
Icon = SCUD.FRX:0000
Left = 1305
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4005
ScaleWidth = 5550
Top = 1425
Width = 5670
Begin Timer HSPTimer
Enabled = 0 'False
Interval = 1000
Left = 480
Top = 3645
End
Begin Timer TenSecondClock
Enabled = 0 'False
Interval = 2500
Left = 195
Top = 3645
End
Begin PictureBox Picture2
Height = 2076
Left = 3720
Picture = SCUD.FRX:0302
ScaleHeight = 2040
ScaleWidth = 1665
TabIndex = 3
Top = 1896
Width = 1692
End
Begin CommandButton Command2
Caption = "Hide SCUD!"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 1
Top = 600
Width = 1815
End
Begin CommandButton Command1
Caption = "Show SCUD!"
Height = 375
Left = 3600
TabIndex = 0
Top = 120
Width = 1815
End
Begin PictureBox Picture1
Height = 3468
Left = 96
ScaleHeight = 3435
ScaleWidth = 3435
TabIndex = 5
Top = 96
Width = 3468
End
Begin Label Label2
Caption = "Click on the SCUD!"
Height = 252
Left = 960
TabIndex = 4
Top = 3648
Width = 1812
End
Begin Label Label1
Caption = "Click the MICOM logo to blow away the SCUD program!"
Height = 615
Left = 3600
TabIndex = 2
Top = 1080
Width = 1815
End
End
Dim IgnoreScudHits As Integer
Sub Command1_Click ()
Form1.BackColor = Picture2.BackColor
TenSecondClock.Enabled = 1
HSPTimer.Enabled = 1
Picture1.Visible = 1
Label2.Visible = 1
Command1.Enabled = 0
Command2.Enabled = 1
End Sub
Sub Command2_Click ()
TenSecondClock.Enabled = 0
HSPTimer.Enabled = 0
Picture1.Visible = 0
Command2.Enabled = 0
Command2.Caption = "Hide SCUD!"
Command1.Enabled = 1
Label2.Visible = 0
Form1.BackColor = Picture2.BackColor
Label2.BackColor = Picture2.BackColor
Label1.BackColor = Picture2.BackColor
Form1.Icon = Form2.TrashOut.Picture
End Sub
Sub Form_Load ()
Load Form2
MsgBox "Brought to you by" + Chr$(13) + Chr$(10) + "Microsoft Visual Basic" + Chr$(13) + Chr$(10) + "and US Army MICOM Friends!" + Chr$(13) + Chr$(10) + "(We're the PATRIOT People!)", 64, "Thank You, Desert Storm!"
IgnoreScudHits = 0
Picture1.Visible = 0
Picture1.Picture = Form2.PictureScud.Picture
TenSecondClock.Enabled = 0
HSPTimer.Enabled = 0
Label2.Visible = 0
End Sub
Sub Form_Unload (Cancel As Integer)
Picture2_Click
End Sub
Sub HSPTimer_Timer ()
If Command2.Enabled Then
If Command2.Caption = "Hide SCUD!" Then
Command2.Caption = "USAF ATTACK!"
Form1.Icon = Form2.TrashBurning.Picture
Else
Command2.Caption = "Hide SCUD!"
Form1.Icon = Form2.TrashOut.Picture
End If
End If
End Sub
Sub Picture1_Click ()
Dim BoxReply As Integer
If IgnoreScudHits = 0 Then
Label2.Visible = 0
Picture1.Picture = Form2.PictureSaddam.Picture
BoxReply = MsgBox("Don't hit my Scuds!" + Chr$(13) + Chr$(10) + "I've had enough!", 512 + 16 + 2, "A Message from Saddam...")
If BoxReply = 3 Then
End
ElseIf BoxReply = 5 Then
IgnoreScudHits = 1
End If
Picture1.Picture = Form2.PictureScud.Picture
Label2.Visible = 1
Else
If Form1.BackColor < 0 Then
Form1.BackColor = RGB(255, 0, 0)
ElseIf Form1.BackColor = RGB(255, 0, 0) Then
Form1.BackColor = RGB(0, 255, 0)
ElseIf Form1.BackColor = RGB(0, 255, 0) Then
Form1.BackColor = RGB(0, 0, 255)
ElseIf Form1.BackColor = RGB(0, 0, 255) Then
Form1.BackColor = RGB(255, 0, 0)
Else
Beep
End If
Label1.BackColor = Form1.BackColor
Label2.BackColor = Form1.BackColor
End If
End Sub
Sub Picture2_Click ()
Command2_Click
Picture1.Picture = Form2.PictureNuke.Picture
Picture1.Visible = 1
MsgBox "SCUD blown from the face of the earth!", 64, "Bye, Bye SCUD!"
End
End Sub
Sub TenSecondClock_Timer ()
If Form1.Caption = "Iraqi Missile" Then
Form1.Caption = "Busted SCUD!"
Else
Form1.Caption = "Iraqi Missile"
End If
End Sub